home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 001a / ezzcomm.zip / SMLMAIL.T < prev    next >
Text File  |  1991-02-16  |  2KB  |  48 lines
  1.  : EZ-ZCOMM Copyright 1991 by Roger E. Hough, All Rights Reserved.
  2.  : Licensed for use at your own risk without fee. Altered versions,
  3.  : when distributed, must be clearly marked as altered and accompanied
  4.  : by the originals.
  5.  :
  6.  : Send an Outbound SMLNET Mail File
  7.  : 1st line: target,subject
  8.  : target(name) must be no more than 36 characters in length
  9.  : Remainder of file is the memo: (72 chars/line, 300 lines maximum)
  10.  display inhibit;open -!g %item;display noinhibit
  11.  setc z9 \032;if !t goto mailinvd
  12.  grab z1;if !%z1||Iz9,z1||!t goto mailinvd
  13.  split z1 , "";if !%z1 goto mailinvd
  14.  setc z8 \L%z0;if iz8,all set z0 "All"
  15.  setc z9 \032;grab z3;if Iz9,z3||!t goto mailinvd
  16. mailok:
  17.  pat;mput \b\b\b\b\b\b\b\bE\r
  18.  pat 0 "Who is it TO";wait -f40;if n bye;return
  19.  pat;mput \b\b\b\b\b\b\b\b\T%z0;mput \r
  20.  pat 0i \n;wait -f40;if n bye;return
  21.  pat;pat 0 "Topic?";wait -f40;if n bye;return
  22.  pat;mput \b\b\b\b\b\b\b\b\T%z1;mput \r
  23.  pat 0i \n;wait -f40;if n bye;return
  24.  pat;pat 0 ": ";wait -f40;if n bye;return
  25. mailnext:
  26.  pat;if %z3 mput \b\b\b\b\b\b\b\b\T%z3;mput \r
  27.  else mput "\b\b\b\b\b\b\b\b \r"
  28.  pat 0c \b;pat 1i \n;wait -f10;if n ife t closetx;bye;return
  29.  if 0 pat;pat 0 ":";pat 1 "\nSelect"
  30.  else pat;pat 0i ":";pat 1i "\nSelect"
  31.  wait -f20;if n ife t closetx;bye;return
  32.  grab z3;if t&&Iz9,z3 closetx
  33.  if !1 ife t goback mailnext;pat;mput \b\b\b\b\b\b\b\b\r;pat 1 "\nSelect";wait -f20;if n ife t closetx;bye;return
  34.  : Select: A,C,D,E,H,I,J,L,R,T,S)ave ->
  35.  pat;mput \b\b\b\b\b\b\b\bs\r
  36.  pat 0c "Are you Sure (" \b\b\b\b\b\b\b\by\r
  37.  pat 1 "\nType -> "
  38.  wait -f30;if ife t closetx;bye;return
  39.  set s1 y
  40.  if t goback mailok
  41.  del %item
  42.  pat;return
  43. mailinvd:
  44.  echoc "Improper File - %item"
  45.  if t closetx
  46.  : del %item
  47.  return
  48.